home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed44a.d64 / add 3 to 5 t (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  179 lines
  1. 50 RESTORE:POKE53280,0:POKE53281,0:POKE53272,23:X=1:Y=1:K=0:W=0:C=0:R=0
  2. 100 PRINT"[147][155]            [215][200][195][160][197]NTERPRISES            ":GOSUB290:GOSUB240
  3. 105 PRINT"[159]                                        [146]";
  4. 110 PRINT"                                        [146]";
  5. 115 PRINT"          [200][197][204][197][206]'[211]  [194][193][211][201][195] [205][193][212][200]           [146]";
  6. 120 PRINT"[159]                                        [146]";:GOSUB290:GOSUB240
  7. 125 PRINT"            [193][196][196][201][212][201][207][206] [212][197][211][212] 3             [146]";
  8. 130 PRINT"[159]                 WITH                   [146]";
  9. 135 PRINT"          NUMBERS FROM 3 TO 5           [146]";
  10. 140 PRINT"[159]                                        [146]";
  11. 145 PRINT"                                        [146]"
  12. 150 GOSUB780
  13. 155 PRINT"[147]":GOSUB291
  14. 160 PRINT"[147][153] [201]N THIS UNIT WE [212][197][211][212] ADDITION SKILLS
  15. 162 [153]" WITH NUMBERS FROM 3PRINT TO 5WAIT."
  16. 164 [153]" (null)OU HAVE ONLY (null)(null)VAL CHANCE TO ANSWER      EACH QUESTION
  17. 166 PRINT" [201]F YOU MISS IT, THAT'S A [150][194][204][207][207][208][197][210][153].
  18. 168 [153]" (null)OU WILL BE PLAYING AGAINST THE CLOCK   SO DON'T WASTE ANY TIME."
  19. 170 [141]292:[141]460
  20. 175 [153]"LOAD":[141]291
  21. 180 [153]"LOADPRINT (null)HAT IS YOUR NAME?":[141]260
  22. 182 [133] N$
  23. 184 [153]"LOAD ATNND AWAY WE GO, "N$
  24. 186 [141]291:[141]200:[141]290
  25. 190 [153]"LOAD":[141]291
  26. 195 TI$[178]"000000":[137]500
  27. 199 :
  28. 200 [143] <YES> SOUND
  29. 202 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  30. 204 [151]54296,15:[151]54277,42:[151]54278,250
  31. 206 [151]54276,23:[151]54273,23:[151]54272,191
  32. 208 [129]TM[178]1[164]150:[130]:[151]54276,32:[129]TM[178]1[164]250:[130]
  33. 210 [151]54296,0:[142]
  34. 220 [143] <NO> SOUND
  35. 222 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  36. 224 [151]54296,15:[151]54277,18:[151]54278,242
  37. 226 [151]54276,33:[151]54273,4:[151]54272,48
  38. 228 [129]TM[178]1[164]300:[130]:[151]54276,32:[129]TM[178]1[164]400:[130]
  39. 230 [151]54296,0:[142]
  40. 240 [143] <BLIP> SOUND
  41. 242 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  42. 244 [151]54296,6:[151]54277,42:[151]54278,250
  43. 246 [151]54276,23:[151]54273,23:[151]54272,191
  44. 248 [129]TM[178]1[164]30:[130]:[151]54276,32:[129]TM[178]1[164]50:[130]
  45. 250 [151]54296,0:[142]
  46. 260 [143] <DING> SOUND
  47. 262 SS[178]54272:[151]54296,15:[151]SS,50:[151]SS[170]1,35:[151]SS[170]2,0:[151]SS[170]3,8:[151]SS[170]5,0
  48. 264 [151]SS[170]6,10[172]16[170]9:[151]SS[170]4,14:[151]SS[170]4,65:[129]QQ[178]1[164]20:[151]SS[170]4,64
  49. 266 [142]
  50. 270 [143] <VERY WRONG> SOUND
  51. 272 SS[178]54272:[151]54296,15:[151]SS,32:[151]SS[170]1,3:[151]SS[170]2,128:[151]SS[170]3,13
  52. 274 [151]SS[170]5,4[172]16[170]0:[151]SS[170]6,10[172]16[170]8
  53. 276 [151]SS[170]24,15:[151]SS[170]4,65:[129]QQ[178]1[164]500:[130]:[151]SS[170]4,64:[142]
  54. 290 [129]TM[178]1[164]600:[130]:[142]
  55. 291 [129]TM[178]1[164]1000:[130]:[142]
  56. 292 [129]TM[178]1[164]2000:[130]:[142]
  57. 293 [129]TM[178]1[164]3000:[130]:[142]
  58. 300 [153]"LOAD":[141]290
  59. 302 [153]"LIST ATNDD 3-5 (null)CLR"[163]13)""N$[163]32)"LIST(null)TEP:"Y
  60. 305 [142]
  61. 310 [153]"OPEN            ";A$"+OPEN";B$"="Z$
  62. 350 [143] TI$="000000"
  63. 355 N[178]TI[173]60
  64. 360 N[178][181](N[170].5)
  65. 365 [153]"CONT";N"SECONDSONONONONONONONONONONONONONONONON"
  66. 370 [142]
  67. 400 [143] CORRECT
  68. 402 [153]"PRINT                   (null)VAL(null)                  WAIT":[141]200:[141]292
  69. 404 [153]"ONON                                        "
  70. 410 [151]53280,0:[142]
  71. 420 [151]53280,2:[141]220:[141]291
  72. 423 [153]"DEF                   (null)(null)!                  WAIT":[141]292
  73. 425 [153]"ONON                                        ONON"
  74. 440 [153]"LOAD":[141]290:[151]53280,13
  75. 445 [153]"      >>>>>CLOSECLOSE PRINT";A$" + PRINT";B$" =PRINT ";C$"   <<<<<"
  76. 450 [141]260:[141]293:[141]460:[151]53280,0:[142]
  77. 460 [141]291:[141]260
  78. 462 [153]"CONT      >>>>>    (null)(null)ATNLENVALCLOSEPEEKATN(null)    <<<<<       WAIT"
  79. 464 [161]R$:[139]R$[179][177][199](32)[167]464
  80. 466 [153]"ONON                                        ":[142]
  81. 500 [129]G[178]1[164]25
  82. 505 [141]300:[141]350:Y[178]Y[170]1:P[178]0:[151]53280,0
  83. 510 [135]A$,B$,C$
  84. 520 [153]"               ";A$" + ";B$" = ":[141]260
  85. 530 [153]"SYSON ";:[133]Z$
  86. 540 [139]Z$[178]C$[167][141]400:C[178]C[170]1:[137]550
  87. 545 [141]420:W[178]W[170]1:
  88. 550 [130] G
  89. 599 :
  90. 600 [153]"LOAD       ATNSTR$STR$ 3-5 (null)    (null)LEN(null)(null)VALCLOSEPEEK(null)ATN(null)STR$         WAIT":[141]291
  91. 605 L[178]C[172]4:L[178][181](L[170].5)
  92. 610 [153]"SYS          (null)OUR (null)LEN(null)(null)VAL ...";L"%":[141]260:[141]293
  93. 613 [153]"SYS          (null)OUR TIME ...."N"SECONDS":[141]260:[141]293
  94. 615 [153]"PRINT          LENORRECT ......"C:[141]200:[141]292
  95. 620 [153]"DEF          PEEKLOOPERS ....."W:[141]270:[141]292
  96. 622 [139] N[178][179]160[167][153]"          (null)OU WERE ASCATN(null)(null)":[141]260:[141]292:[137]625
  97. 623 [139]N[178][179]250[167][153]"SYS          LENAN YOU GO FASTER?":[141]260:[141]292:[137]625
  98. 624 [153]"SYS          RIGHT$'M SURE YOU CAN GO FASTER.":[137]625
  99. 625 [139]C[178]25[167][153]"              VAL(null)LENVAL(null)(null)VAL(null)(null) (null)(null)(null)(null)!           WAIT"
  100. 630 [139]C[178]25[167][141]200:[141]292:[137]660
  101. 635 [139]C[178][177]22[167][153]"               CHR$OOD (null)ORK WAIT"
  102. 640 [139]C[178][177]22[167][141]200:[141]292:[137]660
  103. 650 [141]292:[153]" >>>>> (null)OU NEED MORE PRACTICE.":[141]292
  104. 655 [153]" >>>>> (null)LEASE PLAY THIS GAME AGAIN."
  105. 660 [141]460
  106. 672 [153]"LOAD  (null)RESS  (null) WAIT TO REPEAT ATNSTR$STR$ 3 TO 5 (null)
  107. 674 PRINT"  [208]RESS  [199] [146] TO GO TO THE NEXT GAME.
  108. 676 [153]"  (null)RESS  (null) WAIT TO RETURN TO DISK (null)VAL(null)(null)
  109. 678 GETR$:IFR$<>"R"ANDR$<>"[210]"ANDR$<>"M"ANDR$<>"[205]"ANDR$<>"[199]"ANDR$<>"G"THEN678
  110. 680 IFR$="R"THEN RESTORE:Y=1:GOTO500
  111. 682 IFR$="[210]"THEN RESTORE:Y=1:GOTO500
  112. 684 IFR$="G"THEN RESTORE:GOTO800
  113. 686 IFR$="[199]"THEN RESTORE:GOTO800
  114. 688 RESTORE:PRINT"[147] [210]ETURNING TO THE DISK [205][197][206][213]
  115. 690 [147]"MENU",8
  116. 692 [138]
  117. 694 [128]
  118. 699 :
  119. 700 [153]"LOADOPEN         (null)VALATNLENLEFT$VAL(null)CLOSERIGHT$(null)ASC(null)(null)(null)ATN(null)RIGHT$(null)(null)
  120. 702 PRINT" [212]HIS IS THE THIRD OF A SET OF ADDITION
  121. 704 [153]" EXERCISES DESIGNED SPECIFICALLY FOR
  122. 706 PRINT" CHILDREN CLASSED AS 'INTELLECTUALLY     CHALLENGED'.
  123. 710 [153]" VALACH PAIR OF EXERCIES USES A SET
  124. 712 PRINT" RANGE OF NUMBERS.
  125. 714 [153]" (null)HE FIRST EXERCISE ((null)) IN A PAIR
  126. 716 PRINT" PROVIVDES A MEASURED [208][210][193][195][212][201][195][197].
  127. 718 [153]" (null)HE SECOND EXERCISE ((null)) PROVIDES A      TIMED AND MEASURED (null)VAL(null)(null).
  128. 720 PRINT" [212]HIS IS THE [212][197][211][212] EXERCISE "
  129. 722 GOSUB460
  130. 730 PRINT"[147][159] [210]OLISON'S '[212][210][201][193][196] PRINCIPLE' IS USED
  131. 740 [153]" TO SELECT THE NUMBER COMBINATIONS.
  132. 750 PRINT" [201]T WOULD BE A GOOD IDEA TO RECORD
  133. 755 [153]" THE PUPIL'S PERFOMANCE ON EACH UNIT."
  134. 760 [153]" (null)HIS MATH SERIES IS DEDICATED TO
  135. 765 PRINT" [200]ELEN [200]ORN, FORMER PRINCIPAL OF
  136. 770 [153]" (null)YNDWOOD (null)UBLIC (null)CHOOL, (null)ISSISSAUGA,    (null)NTARIO, LENANADA.   1993"
  137. 775 [141]460:[142]
  138. 780 [141]290:[141]240
  139. 782 [153]"CONT         RIGHT$NSTRUCTIONS?  (null)/(null)        POKE(null)CONT"
  140. 784 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"(null)"[175]R$[179][177]"N"[175]R$[179][177]"(null)"[175]R$[179][177]"T"[175]R$[179][177]"(null)"[167]784
  141. 786 [139]R$[178]"T"[167][141]700
  142. 788 [139]R$[178]"(null)"[167][141]700
  143. 790 [139]R$[178]"N"[167]180
  144. 792 [139]R$[178]"(null)"[167]180
  145. 794 [153]"ONON                                        ":[142]
  146. 800 [153]"LOAD GOING TO  ADD 1 TO 5  P "
  147. 805 [153]"LISTLOAD"[199](34)"ADD 1 TO 5  P"[199](34)",8:"
  148. 810 [151]198,0:[151]631,19:[151]632,131:[151]198,2
  149. 815 [128]
  150. 899 :
  151. 1000 [131] "3","3","6"
  152. 1005 [131] "5","5","10"
  153. 1010 [131] "4","4","8"
  154. 1015 [131] "3","4","7"
  155. 1020 [131] "4","5","9"
  156. 1025 [131] "3","5","8"
  157. 1030 [131] "5","3","8"
  158. 1035 [131] "3","4","7"
  159. 1040 [131] "5","3","8"
  160. 1045 [131] "4","5","9"
  161. 1050 [131] "3","4","7"
  162. 1055 [131] "4","4","8"
  163. 1060 [131] "3","3","6"
  164. 1065 [131] "4","3","7"
  165. 1070 [131] "3","5","8"
  166. 1075 [131] "5","5","10"
  167. 1080 [131] "4","4","8"
  168. 1085 [131] "3","5","8"
  169. 1090 [131] "3","3","6"
  170. 1095 [131] "4","3","7"
  171. 1100 [131] "3","4","7"
  172. 1105 [131] "3","5","8"
  173. 1110 [131] "3","4","7"
  174. 1115 [131] "3","3","6"
  175. 1120 [131] "4","5","9"
  176. 1790 [141]290
  177. 2000 [143] WHC 93 04 16<>93 07 05
  178. 2010 [143] DEDICATED TO HELEN HORN  1993
  179.